unit dm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Mask, DBCtrls, StdCtrls, Grids, DBGrids, CheckLst,
  ImgList, ComCtrls, ExtCtrls,DateUtils,Math, ExcelXP, OleServer;

type
  Tbase = class(TDataModule)
    LEDWIN: TADOConnection;
    DSempresas: TDataSource;
    SISTEMA: TADOConnection;
    ECF: TADOConnection;
    LED: TADOConnection;
    Comandoled: TADOQuery;
    DSComandoLED: TDataSource;
    DSLANCAMENTO: TDataSource;
    Pagamento: TADOTable;
    DSpagamento: TDataSource;
    Query2: TADOQuery;
    socio: TADOTable;
    socioxcpf: TStringField;
    socioxns: TStringField;
    socioxninscr: TStringField;
    socioxende: TStringField;
    socioxcid: TStringField;
    socioxbairro: TStringField;
    socioxcep: TStringField;
    socioxuf: TStringField;
    socioxdep: TSmallintField;
    socioxrsm: TBCDField;
    socioxvalorret: TBCDField;
    socioxfaixa: TStringField;
    socioxdescinss: TStringField;
    socioxcc: TStringField;
    socioxpl: TBCDField;
    socioxmfaixa: TStringField;
    socioxtomador: TStringField;
    socioxcodrec: TStringField;
    socioxdataposse: TDateTimeField;
    socioxcrgps: TStringField;
    socioxcategoria: TStringField;
    socioxdtnasc: TDateTimeField;
    socioxcbo: TStringField;
    socioxsalcontrib: TBCDField;
    socioxbasecomp: TBCDField;
    socioxdt_deslig: TDateTimeField;
    socioxcbo_novo: TStringField;
    socioxqualif: TStringField;
    socioxocorrencia: TStringField;
    socioxrg: TStringField;
    socioxtel1: TStringField;
    socioxtel2: TStringField;
    socioxtitulo: TStringField;
    socioxorgao: TStringField;
    conta: TADOTable;
    Folha: TADOQuery;
    verbas: TADOTable;
    verbasxcodverba: TStringField;
    verbasxdescr: TStringField;
    verbasxtipopd: TStringField;
    verbasxrotinam: TStringField;
    verbasxperc: TBCDField;
    verbasxcalc12: TStringField;
    verbasxcodtab: TStringField;
    verbasxcalcdsr: TStringField;
    verbasxraissn: TStringField;
    verbasxinsssn: TStringField;
    verbasxirrfsn: TStringField;
    verbasxfgtssn: TStringField;
    verbasxsalfamsn: TStringField;
    verbasxsal13sn: TStringField;
    verbasxacum1: TStringField;
    verbasxacum2: TStringField;
    verbasxacum3: TStringField;
    verbasxacum4: TStringField;
    verbasxacum5: TStringField;
    verbasxacum6: TStringField;
    verbasxacum7: TStringField;
    verbasxacum8: TStringField;
    verbasxacum9: TStringField;
    verbasxacum10: TStringField;
    verbasxcalcs: TStringField;
    verbasxacesso: TStringField;
    verbasxccpd: TStringField;
    verbasxccpc: TStringField;
    verbasxccfd: TStringField;
    verbasxccfc: TStringField;
    verbasxccrd: TStringField;
    verbasxccrc: TStringField;
    verbasxcc13d: TStringField;
    verbasxcc13c: TStringField;
    verbasxtotverba: TStringField;
    verbasxtotfunci: TStringField;
    verbasxhistg: TStringField;
    verbasxhistf: TStringField;
    verbasxferias: TStringField;
    verbasxresci: TSmallintField;
    verbasxplan_pg: TStringField;
    verbasxtipo_hlgnet: TStringField;
    DSQUERY2: TDataSource;
    CALCULADORA: TADOConnection;
    Table1: TADOTable;
    Querycalc: TADOQuery;
    DSTABLE1: TDataSource;
    Query3: TADOQuery;
    DSQuery3: TDataSource;
    Fornecedor: TADOTable;
    limpar: TADOQuery;
    principal: TADOTable;
    principalREGISTRO: TIntegerField;
    principalDATA: TDateTimeField;
    principalREGISTROFILHO: TStringField;
    principalNUMEROECF: TStringField;
    principalNOTA: TStringField;
    principalCNPJ: TStringField;
    principalMODELO: TStringField;
    principalSERIE: TStringField;
    principalUF: TStringField;
    principalCFOP: TStringField;
    principalVALORCONTABIL: TFloatField;
    principalBASECALCICMS: TFloatField;
    principalICMS: TFloatField;
    principalISENTO: TFloatField;
    principalOUTRAS: TFloatField;
    principalIPI: TFloatField;
    principalBASECALCIPI: TFloatField;
    principalBASEST: TFloatField;
    principalICMSST: TFloatField;
    principalCLP: TStringField;
    principalCANCELADA: TStringField;
    principalCOOINICIAL: TStringField;
    principalCOOFINAL: TStringField;
    principalCONTADORZ: TStringField;
    principalCRO: TStringField;
    principalVALORTOTALACUMULADO: TFloatField;
    principalSITTRIBUTADA: TStringField;
    principalTRIBUTACAO: TStringField;
    principalSEQUENCIA: TIntegerField;
    principalOUTRASIPI: TFloatField;
    principalCODPRODUTO: TStringField;
    principalSIT_TRIB: TIntegerField;
    principalCOMERCIO: TIntegerField;
    principalIPINAOAPROV: TFloatField;
    principalPROPRIO: TStringField;
    principalALIQUOTA: TFloatField;
    principalNOTA2: TStringField;
    Principalcliente: TADOTable;
    PrincipalclienteREGISTRO: TIntegerField;
    PrincipalclienteDATA: TDateTimeField;
    PrincipalclienteREGISTROFILHO: TStringField;
    PrincipalclienteNUMEROECF: TStringField;
    PrincipalclienteNOTA: TStringField;
    PrincipalclienteCNPJ: TStringField;
    PrincipalclienteMODELO: TStringField;
    PrincipalclienteSERIE: TStringField;
    PrincipalclienteUF: TStringField;
    PrincipalclienteCFOP: TStringField;
    PrincipalclienteVALORCONTABIL: TFloatField;
    PrincipalclienteBASECALCICMS: TFloatField;
    PrincipalclienteICMS: TFloatField;
    PrincipalclienteISENTO: TFloatField;
    PrincipalclienteOUTRAS: TFloatField;
    PrincipalclienteIPI: TFloatField;
    PrincipalclienteBASECALCIPI: TFloatField;
    PrincipalclienteBASEST: TFloatField;
    PrincipalclienteICMSST: TFloatField;
    PrincipalclienteCLP: TStringField;
    PrincipalclienteCANCELADA: TStringField;
    PrincipalclienteCOOINICIAL: TStringField;
    PrincipalclienteCOOFINAL: TStringField;
    PrincipalclienteCONTADORZ: TStringField;
    PrincipalclienteCRO: TStringField;
    PrincipalclienteVALORTOTALACUMULADO: TFloatField;
    PrincipalclienteSITTRIBUTADA: TStringField;
    PrincipalclienteTRIBUTACAO: TStringField;
    PrincipalclienteSEQUENCIA: TIntegerField;
    PrincipalclienteOUTRASIPI: TFloatField;
    PrincipalclienteCODPRODUTO: TStringField;
    PrincipalclienteSIT_TRIB: TIntegerField;
    PrincipalclienteCOMERCIO: TIntegerField;
    PrincipalclienteIPINAOAPROV: TFloatField;
    PrincipalclientePROPRIO: TStringField;
    PrincipalclienteALIQUOTA: TFloatField;
    PrincipalclienteNOTA2: TStringField;
    ComandoECF: TADOQuery;
    DSComandoECF: TDataSource;
    ComandoECF2: TADOQuery;
    DSComandoECF2: TDataSource;
    Ativo: TADOTable;
    DSFORNECEDOR: TDataSource;
    DSATIVO: TDataSource;
    DSSOCIO: TDataSource;
    DSCONTA: TDataSource;
    DSFOLHA: TDataSource;
    contafilial: TADOTable;
    DSContafilial: TDataSource;
    LEDFILIAL: TADOConnection;
    contafilialcodic: TStringField;
    contafilialxcr: TIntegerField;
    contafilialnomec: TStringField;
    contafilialsaldo: TBCDField;
    contafilialsintetico: TStringField;
    contafilialbalanco: TStringField;
    contafilialxlalur: TStringField;
    contafilialrel_sante: TBCDField;
    contafilialrel_satua: TBCDField;
    contafilialrel_tsd: TBCDField;
    contafilialrel_tsc: TBCDField;
    contafilialrel_cadsn: TStringField;
    contafilialrel_saldodeb: TBCDField;
    contafilialrel_saldocre: TBCDField;
    contafilialxind_nat: TStringField;
    contafilialxanalise_critica: TStringField;
    contafilialxcodicref: TStringField;
    contafilialxind_nat_sped: TStringField;
    contafilialxstatus: TStringField;
    contafilialxinativo: TStringField;
    contafilialxativo_imobilizado: TStringField;
    contafilialxsaldoanoant: TBCDField;
    contafilialxcodhist_padrao: TStringField;
    contacodic: TStringField;
    contaxcr: TIntegerField;
    contanomec: TStringField;
    contasaldo: TBCDField;
    contasintetico: TStringField;
    contabalanco: TStringField;
    contaxlalur: TStringField;
    contarel_sante: TBCDField;
    contarel_satua: TBCDField;
    contarel_tsd: TBCDField;
    contarel_tsc: TBCDField;
    contarel_cadsn: TStringField;
    contarel_saldodeb: TBCDField;
    contarel_saldocre: TBCDField;
    contaxind_nat: TStringField;
    contaxanalise_critica: TStringField;
    contaxcodicref: TStringField;
    contaxind_nat_sped: TStringField;
    contaxstatus: TStringField;
    contaxinativo: TStringField;
    contaxativo_imobilizado: TStringField;
    contaxsaldoanoant: TBCDField;
    contaxcodhist_padrao: TStringField;
    Ativoxcf: TStringField;
    Ativoxcca: TStringField;
    Ativoxdf1: TMemoField;
    Ativoxdaq: TDateTimeField;
    Ativoxdab: TDateTimeField;
    Ativoxvab: TBCDField;
    Ativoxvco: TBCDField;
    Ativoxqco: TBCDField;
    Ativoxforn: TStringField;
    Ativoxdoc: TStringField;
    Ativoxtd: TBCDField;
    Ativoxtdd: TBCDField;
    Ativoxvatudepr: TBCDField;
    Ativoxdtbaixa: TDateTimeField;
    Ativoxtipo: TStringField;
    Ativoxcf_vinc: TStringField;
    Ativoxnumparc: TSmallintField;
    Ativoxcusto: TStringField;
    Ativoxvida_util: TSmallintField;
    Ativoxnat_bc_cred: TStringField;
    Ativoxident_bem: TStringField;
    Ativoxind_orig_cred: TStringField;
    Ativoxutil_bem: TStringField;
    Ativoxvl_oper_dep: TBCDField;
    Ativoxparc_enc_dep_bc: TBCDField;
    Ativoxcst_pis: TStringField;
    Ativoxaliq_pis: TBCDField;
    Ativoxvl_pis: TBCDField;
    Ativoxcst_cofins: TStringField;
    Ativoxaliq_cofins: TBCDField;
    Ativoxvl_cofins: TBCDField;
    Ativoxmes_oper_aquis: TStringField;
    Ativoxvl_oper_aquis: TBCDField;
    Ativoxparc_aquis_bc: TBCDField;
    Ativoxind_nr_parc: TStringField;
    DSQuerycalc: TDataSource;
    PagamentoSequencia: TIntegerField;
    PagamentoImposto: TWideStringField;
    PagamentoValor: TStringField;
    Pagamentovencimento: TStringField;
    Pagamentopagamento: TStringField;
    Pagamentomulta: TStringField;
    Pagamentojuros: TStringField;
    Pagamentoimportar: TIntegerField;
    Pagamentohistorico: TMemoField;
    PagamentoConta: TStringField;
    PagamentoTOTAL: TStringField;
    PagamentoCODIGO: TStringField;
    PagamentoCaixa: TStringField;
    PagamentoHistorico2: TStringField;
    PagamentoValor2: TStringField;
    PagamentoHistorico3: TStringField;
    PagamentoValor3: TStringField;
    PagamentoHistorico4: TStringField;
    PagamentoValor4: TStringField;
    PagamentoHistorico5: TStringField;
    PagamentoValor5: TStringField;
    Pagamentodocumento: TWideStringField;
    PagamentoContamulta: TStringField;
    PagamentoHistmulta: TStringField;
    PagamentoContajuros: TStringField;
    PagamentoHistjuros: TStringField;
    PagamentoHistprolabore: TStringField;
    Pagamentonota: TStringField;
    Pagamentocredito: TStringField;
    Pagamentocontacredito: TStringField;
    das: TADOTable;
    dasxcodigo_acesso: TStringField;
    dasxcpf: TStringField;
    dasxrev_exc_ext: TStringField;
    dasxrev_exc_ext_sst: TStringField;
    dasxrev_exc_ext_cst: TStringField;
    dasxrev_ext: TStringField;
    dasxv_ind_exc_ext: TStringField;
    dasxv_ind_exc_ext_sst: TStringField;
    dasxv_ind_exc_ext_cst: TStringField;
    dasxv_ind_ext: TStringField;
    dasxloc_bens: TStringField;
    dasxps_serv: TStringField;
    dasxps_serv_esc_cont: TStringField;
    dasxps_iii_sst_omun: TStringField;
    dasxps_iii_sst_pmun: TStringField;
    dasxps_iii_cst: TStringField;
    dasxps_iv_sst_omun: TStringField;
    dasxps_iv_sst_pmun: TStringField;
    dasxps_iv_cst: TStringField;
    dasxps_v_sst_omun: TStringField;
    dasxps_v_sst_pmun: TStringField;
    dasxps_v_cst: TStringField;
    dasxps_transp: TStringField;
    dasxps_transp_tsst: TStringField;
    dasxps_transp_tcst: TStringField;
    dasxps_transp_csst: TStringField;
    dasxps_transp_ccst: TStringField;
    dasxat_pis_iss: TStringField;
    dasxat_pis_iss_sst_omn: TStringField;
    dasxat_pis_iss_sst_pmn: TStringField;
    dasxat_pis_iss_cst: TStringField;
    lancp: TADOQuery;
    lancpxma: TStringField;
    lancpxcpf: TStringField;
    lancpxdma: TDateTimeField;
    lancpxvb: TBCDField;
    lancpxinps: TBCDField;
    lancpxfaixa: TStringField;
    lancpxirrf: TBCDField;
    lancpxdep: TSmallintField;
    lancpxdesc: TBCDField;
    lancpxliqrec: TBCDField;
    lancpxvalorlucro: TBCDField;
    lancpxirrflucro: TBCDField;
    lancpxdmalucro: TDateTimeField;
    lancpxinssirrf: TBCDField;
    lancpxtomador: TStringField;
    lancpxirrfdepen: TBCDField;
    lancpxfgts: TBCDField;
    lancpxpensao: TBCDField;
    estadual: TADOTable;
    estadualCodigo: TWideStringField;
    estadualUsuario: TStringField;
    estadualParte1: TWideStringField;
    estadualParte2: TWideStringField;
    estadualSenha: TWideStringField;
    estadualSenhaINSS: TWideStringField;
    estadualAcessoRFB: TStringField;
    estadualSenhaecac: TStringField;
    RELACAO: TADOConnection;
    EMPRESAS: TADOQuery;
    EMPRESAScod_empresa: TStringField;
    EMPRESASnome_empresa: TStringField;
    EMPRESASendereco: TStringField;
    EMPRESASnumero: TStringField;
    EMPRESASbairro: TStringField;
    EMPRESAScomplemento: TStringField;
    EMPRESAScidade: TStringField;
    EMPRESASestado: TStringField;
    EMPRESAScep: TStringField;
    EMPRESAScgc: TStringField;
    EMPRESASceivinccgc: TStringField;
    EMPRESASinscr_estadual: TStringField;
    EMPRESASinscr_municipal: TStringField;
    EMPRESASprocesso: TStringField;
    EMPRESASdecreto: TStringField;
    EMPRESASnome_resp: TStringField;
    EMPRESASdocumento: TStringField;
    EMPRESAScontador: TStringField;
    EMPRESAScrc: TStringField;
    EMPRESAStelefone: TStringField;
    EMPRESAStelddd: TStringField;
    EMPRESAStelnum: TStringField;
    EMPRESASdata_arquivo: TDateTimeField;
    EMPRESASxfatservi: TStringField;
    EMPRESASenquadramento: TStringField;
    EMPRESAScontabil: TStringField;
    EMPRESASfiscal: TStringField;
    EMPRESASpessoal: TStringField;
    EMPRESAScaixa: TStringField;
    EMPRESASc_registro: TStringField;
    EMPRESASc_diario: TSmallintField;
    EMPRESASc_ultfolhadiario: TSmallintField;
    EMPRESASc_razao: TSmallintField;
    EMPRESASc_ultfolharazao: TSmallintField;
    EMPRESASc_caixa: TSmallintField;
    EMPRESASc_ultfolhacaixa: TSmallintField;
    EMPRESASc_balancete: TSmallintField;
    EMPRESASc_ultfolhabalancete: TSmallintField;
    EMPRESASc_numreg: TStringField;
    EMPRESASc_regjc: TStringField;
    EMPRESASc_datadosaldo: TDateTimeField;
    EMPRESASc_periodode: TDateTimeField;
    EMPRESASc_periodoa: TDateTimeField;
    EMPRESASc_flag: TStringField;
    EMPRESASc_matriz: TStringField;
    EMPRESASc_contapartida: TStringField;
    EMPRESASc_contalucro: TStringField;
    EMPRESASc_contaprejuizo: TStringField;
    EMPRESASf_tipo: TStringField;
    EMPRESASf_xlc: TStringField;
    EMPRESASf_xldipi: TStringField;
    EMPRESASf_xpda291: TBCDField;
    EMPRESASf_xpsdme: TBCDField;
    EMPRESASf_xpre: TBCDField;
    EMPRESASf_xprest: TBCDField;
    EMPRESASf_xcai: TStringField;
    EMPRESASf_xpisfat: TStringField;
    EMPRESASf_xcofins: TStringField;
    EMPRESASf_xcsme: TStringField;
    EMPRESASf_xcslp: TStringField;
    EMPRESASf_xirpj: TStringField;
    EMPRESASf_xsimples: TStringField;
    EMPRESASf_xfatanoant: TBCDField;
    EMPRESASf_xpersimple: TBCDField;
    EMPRESASf_xnument: TBCDField;
    EMPRESASf_xnumsai: TBCDField;
    EMPRESASf_xnumicm: TBCDField;
    EMPRESASf_xnumipi: TBCDField;
    EMPRESASf_xnuminv: TBCDField;
    EMPRESASf_xnumservi: TBCDField;
    EMPRESASf_xnumest: TBCDField;
    EMPRESASf_xmodent: TStringField;
    EMPRESASf_xmodsai: TStringField;
    EMPRESASf_xmodicm: TStringField;
    EMPRESASf_xmodipi: TStringField;
    EMPRESASf_xmodinv: TStringField;
    EMPRESASf_xmodservi: TStringField;
    EMPRESASf_xmodest: TStringField;
    EMPRESASf_xcc: TStringField;
    EMPRESASf_xtabela: TStringField;
    EMPRESASf_xredbc: TStringField;
    EMPRESASf_xvalorfix: TBCDField;
    EMPRESASf_xtipogia: TStringField;
    EMPRESASf_giasn: TStringField;
    EMPRESASf_xgiadisk: TStringField;
    EMPRESASf_xmotsubs: TStringField;
    EMPRESASf_xregime: TStringField;
    EMPRESASf_cae: TStringField;
    EMPRESASf_cargo: TStringField;
    EMPRESASf_xfundese: TStringField;
    EMPRESASf_xmicrog: TStringField;
    EMPRESASf_tipoempsp: TStringField;
    EMPRESASf_percsp: TBCDField;
    EMPRESASd_fpas: TStringField;
    EMPRESASd_xpissn: TStringField;
    EMPRESASd_xnsm: TBCDField;
    EMPRESASd_xtipoemp: TStringField;
    EMPRESASd_xpercemp: TBCDField;
    EMPRESASd_xpercempra: TBCDField;
    EMPRESASd_xcodter: TStringField;
    EMPRESASd_xperc: TBCDField;
    EMPRESASd_xcodsat: TStringField;
    EMPRESASd_xpersat: TBCDField;
    EMPRESASd_xcagedsn: TStringField;
    EMPRESASd_x1declarac: TStringField;
    EMPRESASd_xencerram: TStringField;
    EMPRESASd_xmudaend: TStringField;
    EMPRESASd_xfgtssn: TStringField;
    EMPRESASd_xagencia: TStringField;
    EMPRESASd_xbancofgts: TStringField;
    EMPRESASd_xnatestab: TStringField;
    EMPRESASd_xcatemp: TStringField;
    EMPRESASd_xnagencia: TStringField;
    EMPRESASd_xcontafgts: TStringField;
    EMPRESASd_xccr: TStringField;
    EMPRESASd_xraissn: TStringField;
    EMPRESASd_xproprieta: TStringField;
    EMPRESASd_xicgccei: TStringField;
    EMPRESASd_xiende: TStringField;
    EMPRESASd_xativprinc: TStringField;
    EMPRESASd_xprefixo: TStringField;
    EMPRESASd_xcausaalt: TStringField;
    EMPRESASd_xcodmun: TStringField;
    EMPRESASd_xdatabase: TStringField;
    EMPRESASd_xinscrant: TStringField;
    EMPRESASd_xcod: TStringField;
    EMPRESASd_xcodtra: TStringField;
    EMPRESASd_xinicio: TDateTimeField;
    EMPRESASd_xatividade: TStringField;
    EMPRESASd_xcodativ: TStringField;
    EMPRESASd_xcapital: TBCDField;
    EMPRESASd_xtipoestab: TStringField;
    EMPRESASd_xcodrec: TStringField;
    EMPRESASd_xiacnae: TStringField;
    EMPRESASd_xtomrais: TStringField;
    EMPRESASg_xvrmensa: TBCDField;
    EMPRESASg_codsacado: TStringField;
    EMPRESASxsitemp: TStringField;
    EMPRESASxdatasit: TDateTimeField;
    EMPRESASxiss: TStringField;
    EMPRESASxexig: TStringField;
    EMPRESASg_xdiapagto: TStringField;
    EMPRESASxgrupo: TStringField;
    EMPRESASxaliss: TBCDField;
    EMPRESASf_codpis: TStringField;
    EMPRESASf_codcofins: TStringField;
    EMPRESASf_codcs: TStringField;
    EMPRESASf_codirpj: TStringField;
    EMPRESASd_pat: TStringField;
    EMPRESASd_codgps: TStringField;
    EMPRESASd_percfrete: TBCDField;
    EMPRESASd_xcnae: TStringField;
    EMPRESASd_xpercif: TBCDField;
    EMPRESAScrcuf: TStringField;
    EMPRESAScpfcontador: TStringField;
    EMPRESASf_xcoddae: TStringField;
    EMPRESASf_xcoddaefun: TStringField;
    EMPRESASf_xcompvragr: TStringField;
    EMPRESASf_xperc_a_a_s: TBCDField;
    EMPRESASf_xdesm_cae: TStringField;
    EMPRESASf_xcod_mun_irpj: TStringField;
    EMPRESASf_xrev_auton: TStringField;
    EMPRESASx_tipo_integ: TStringField;
    EMPRESASx_data_saldo_cx: TDateTimeField;
    EMPRESASx_vr_saldo_cx: TBCDField;
    EMPRESAScx_periodode: TDateTimeField;
    EMPRESAScx_periodoa: TDateTimeField;
    EMPRESASd_simples: TStringField;
    EMPRESASf_passo: TStringField;
    EMPRESASd_pat_sp: TBCDField;
    EMPRESASd_pat_ac: TBCDField;
    EMPRESASd_pat_rc: TBCDField;
    EMPRESASd_pat_rt: TBCDField;
    EMPRESASd_pat_ca: TBCDField;
    EMPRESASd_pat_alc: TBCDField;
    EMPRESASd_iea: TStringField;
    EMPRESASd_xregime_pag: TStringField;
    EMPRESASf_ciap: TStringField;
    EMPRESASf_issqn: TStringField;
    EMPRESASxemail_resp: TStringField;
    EMPRESASxlayout: TStringField;
    EMPRESASxbancocomp: TStringField;
    EMPRESASxtipocc: TStringField;
    EMPRESASxbanco: TStringField;
    EMPRESASxcodempbanco: TStringField;
    EMPRESASxcodagencia: TStringField;
    EMPRESASxdvagencia: TStringField;
    EMPRESASxconta: TStringField;
    EMPRESASxdvconta: TStringField;
    EMPRESASxdvagenciacc: TStringField;
    EMPRESASxcafe: TStringField;
    EMPRESASf_tipocontrib: TStringField;
    EMPRESASxativoext: TStringField;
    EMPRESASf_xdf_rcdpe: TDateTimeField;
    EMPRESASc_xtitulo: TStringField;
    EMPRESASf_xnumdupli: TBCDField;
    EMPRESASf_xmoddupli: TStringField;
    EMPRESASd_xmens_ho01: TStringField;
    EMPRESASd_xmens_ho02: TStringField;
    EMPRESASd_xmens_qh01: TStringField;
    EMPRESASd_xmens_qh02: TStringField;
    EMPRESASd_xmens_qh03: TStringField;
    EMPRESASd_xmens_qh04: TStringField;
    EMPRESASc_flag_lanct: TStringField;
    EMPRESASf_xdesm_xcnae: TStringField;
    EMPRESASxexc_simples: TStringField;
    EMPRESASxdt_exc_simples: TDateTimeField;
    EMPRESASxop_refis: TStringField;
    EMPRESASxop_paes: TStringField;
    EMPRESASxcontrib_ipi: TStringField;
    EMPRESASxcontrib_icms: TStringField;
    EMPRESASxconv_estado: TStringField;
    EMPRESASxmes_conv_estado: TStringField;
    EMPRESASxlimite_conv_estado: TStringField;
    EMPRESASxcontrib_iss: TStringField;
    EMPRESASxconv_munic: TStringField;
    EMPRESASxmes_conv_munic: TStringField;
    EMPRESASxlimite_conv_munic: TStringField;
    EMPRESASxexpcaixa: TBCDField;
    EMPRESASxordem: TSmallintField;
    EMPRESASxmodalidade: TStringField;
    EMPRESASxsindassoc: TStringField;
    EMPRESASxvrassoc: TBCDField;
    EMPRESASxsindsind: TStringField;
    EMPRESASxvrsind: TBCDField;
    EMPRESASxsindassis: TStringField;
    EMPRESASxvrassis: TBCDField;
    EMPRESASxsindconf: TStringField;
    EMPRESASxvrconf: TBCDField;
    EMPRESASxexerativ: TStringField;
    EMPRESASxsenhaweb: TStringField;
    EMPRESASxemail_web: TStringField;
    EMPRESASxexibirweb: TStringField;
    EMPRESASxcriterio: TStringField;
    EMPRESASxtipologra: TStringField;
    EMPRESASxorgao: TStringField;
    EMPRESASxsocioscp: TSmallintField;
    EMPRESASxmetodo: TStringField;
    EMPRESASxpartper: TStringField;
    EMPRESASxcomelet: TStringField;
    EMPRESASxroyalrec: TStringField;
    EMPRESASxroyalpag: TStringField;
    EMPRESASxrendrel: TStringField;
    EMPRESASxpagrem: TStringField;
    EMPRESASxmajoracao: TStringField;
    EMPRESASg_xcontainteg: TStringField;
    EMPRESASxcompresumo: TStringField;
    EMPRESASxinovtec: TStringField;
    EMPRESASxtrib1t: TStringField;
    EMPRESASxtrib2t: TStringField;
    EMPRESASxqualifpj: TStringField;
    EMPRESASxbalanco: TStringField;
    EMPRESASxmes1: TStringField;
    EMPRESASxmes2: TStringField;
    EMPRESASxmes3: TStringField;
    EMPRESASxmes4: TStringField;
    EMPRESASxmes5: TStringField;
    EMPRESASxmes6: TStringField;
    EMPRESASxscp: TStringField;
    EMPRESASxincorp: TStringField;
    EMPRESASxdctf: TStringField;
    EMPRESASxvarpis: TStringField;
    EMPRESASxvarcofins: TStringField;
    EMPRESASxvarcs: TStringField;
    EMPRESASxvarirpj: TStringField;
    EMPRESASf_xipi: TStringField;
    EMPRESASf_codipi: TStringField;
    EMPRESASxvaripi: TStringField;
    EMPRESASxindcentr: TStringField;
    EMPRESASxintegclp: TStringField;
    EMPRESASxpjcomexp: TStringField;
    EMPRESASxpjefet: TStringField;
    EMPRESASxaliq_cofins: TBCDField;
    EMPRESASxaliq_cs: TBCDField;
    EMPRESASxfat_serv_cs: TStringField;
    EMPRESASxsuframa: TStringField;
    EMPRESASxind_perfil: TStringField;
    EMPRESASxind_ativ: TStringField;
    EMPRESASxsped_fiscal: TStringField;
    EMPRESASxconv_icms_115: TStringField;
    EMPRESASxapuripi: TStringField;
    EMPRESASxsped_contabil: TStringField;
    EMPRESASxcod_ent_ref_conta: TStringField;
    EMPRESASxcod_ent_ref_cad: TStringField;
    EMPRESASxpjcsll15: TStringField;
    EMPRESASxoprtt: TStringField;
    EMPRESASxconttec: TStringField;
    EMPRESASxesc_cent: TStringField;
    EMPRESASxfap: TBCDField;
    EMPRESASxpconta11638: TStringField;
    EMPRESASxseqiss: TIntegerField;
    EMPRESASxnome_fantasia: TStringField;
    EMPRESASxcod_inc_trib: TStringField;
    EMPRESASxind_apro_cred: TStringField;
    EMPRESASxcod_tipo_cont: TStringField;
    EMPRESASxrec_cred_ret: TStringField;
    EMPRESASxind_nat_pj: TStringField;
    EMPRESASxcrit_rec_vmon: TStringField;
    EMPRESASxaus_deb_jan: TStringField;
    EMPRESASxaus_deb_fev: TStringField;
    EMPRESASxaus_deb_mar: TStringField;
    EMPRESASxaus_deb_abr: TStringField;
    EMPRESASxaus_deb_mai: TStringField;
    EMPRESASxaus_deb_jun: TStringField;
    EMPRESASxaus_deb_jul: TStringField;
    EMPRESASxaus_deb_ago: TStringField;
    EMPRESASxaus_deb_set: TStringField;
    EMPRESASxaus_deb_out: TStringField;
    EMPRESASxaus_deb_nov: TStringField;
    EMPRESASxaus_deb_dez: TStringField;
    EMPRESASxapu_pis_cof: TStringField;
    EMPRESASxpj_ativ_mes: TStringField;
    EMPRESASxdeb_scp_inc: TStringField;
    EMPRESASxcd_int_empresa: TAutoIncField;
    EMPRESASxdt_ato_simp_emp: TDateTimeField;
    EMPRESASf_xnumservi_tom: TIntegerField;
    EMPRESASf_xmodservi_tom: TStringField;
    EMPRESASxlucro_real_lei: TStringField;
    EMPRESASxobs_empresa: TMemoField;
    EMPRESASxlei4056: TStringField;
    EMPRESASxapcredativo: TStringField;
    EMPRESASxrazao_social_conta: TStringField;
    EMPRESASxcgc_conta: TStringField;
    EMPRESASxlei12546: TStringField;
    EMPRESASxperc_lei12546: TBCDField;
    EMPRESASxdarflei12546: TStringField;
    EMPRESASxformesc: TStringField;
    EMPRESASxinteg_aut: TStringField;
    EMPRESASxma_integ_aut: TStringField;
    EMPRESASxinteg_matriz: TStringField;
    EMPRESASxindcrit: TStringField;
    EMPRESASxregrapreco: TStringField;
    EMPRESASxnacionalidade: TStringField;
    EMPRESASxestado_civil: TStringField;
    EMPRESASxprofissao: TStringField;
    EMPRESASxrg: TStringField;
    EMPRESASxtrava_integracao: TStringField;
    EMPRESASxdif_vc_bcserv: TStringField;
    EMPRESASxtrava_lancto: TStringField;
    EMPRESASxrg_resp: TStringField;
    EMPRESASxtrava_mes_dp: TStringField;
    EMPRESASxporte_estab: TStringField;
    EMPRESASxcontrole_ponto: TStringField;
    EMPRESASxnome_auditor: TStringField;
    EMPRESASxreg_auditor: TStringField;
    EMPRESASxenc_exercicio_social: TStringField;
    EMPRESASxorgao_resp: TStringField;
    EMPRESASxuforgao_resp: TStringField;
    EMPRESASxorgao_domes: TStringField;
    EMPRESASxuforgao_domes: TStringField;
    EMPRESASf_xnumcod_merc: TIntegerField;
    EMPRESASf_xmodcod_merc: TStringField;
    DSRELAT: TDataSource;
    modelonf: TADOQuery;
    modelonfxespecie: TStringField;
    modelonfxmodelo: TStringField;
    modelonfxcodfiscal: TStringField;
    modelonfxdescricao: TStringField;
    modelonfxreg: TStringField;
    modelonfxnfp: TStringField;
    modelonfLocalColeta: TStringField;
    estadualPGFN: TStringField;
    DSRMAPU: TDataSource;
    rmapu: TADOQuery;
    rmapuxma: TStringField;
    rmapuxicmm123: TStringField;
    rmapuxtotentra: TBCDField;
    rmapuxbcrateio: TBCDField;
    rmapuicm: TBCDField;
    rmapuxicmcomp: TBCDField;
    rmapuipim: TBCDField;
    rmapuipi1d: TBCDField;
    rmapuipi2d: TBCDField;
    rmapuipi3d: TBCDField;
    rmapuxfatur: TBCDField;
    rmapuxfaturacresc: TBCDField;
    rmapuxfaturservi: TBCDField;
    rmapuxfatur1: TBCDField;
    rmapuxfatur2: TBCDField;
    rmapuxfatur3: TBCDField;
    rmapuxfatur4: TBCDField;
    rmapuxdevol: TBCDField;
    rmapuxdevol1: TBCDField;
    rmapuxdevol2: TBCDField;
    rmapuxdevol3: TBCDField;
    rmapuxdevol4: TBCDField;
    rmapuxicms: TBCDField;
    rmapuxicme: TBCDField;
    rmapuxiss: TBCDField;
    rmapuxipina: TBCDField;
    rmapuxipinas: TBCDField;
    rmapuxipinast: TBCDField;
    rmapuxicmsrete: TBCDField;
    rmapuxicmsrets: TBCDField;
    rmapuxbcdfe: TBCDField;
    rmapuxcampo29: TBCDField;
    rmapuxcampo30: TBCDField;
    rmapuxcampo31: TBCDField;
    rmapuxcampo32: TBCDField;
    rmapuxcampo33: TBCDField;
    rmapuxcampo34: TBCDField;
    rmapuxcampo35: TBCDField;
    rmapuxcampo36: TBCDField;
    rmapuxcampo37: TBCDField;
    rmapuxcampo38: TBCDField;
    rmapuxcampo39: TBCDField;
    rmapuxcampo40: TBCDField;
    rmapuxcampo41: TBCDField;
    rmapuxcampo42: TBCDField;
    rmapuxvrpis: TBCDField;
    rmapuxvrcofins: TBCDField;
    rmapuxvrcs: TBCDField;
    rmapuxvrirpj: TBCDField;
    rmapuxvrsimples: TBCDField;
    rmapuxdedpis: TBCDField;
    rmapuxdedcofins: TBCDField;
    rmapuxirrss: TBCDField;
    rmapuxcompensacao: TBCDField;
    rmapuxtotstsp: TBCDField;
    rmapuxestoqf: TBCDField;
    rmapuxsfcaixa: TBCDField;
    rmapuxganhoscap: TBCDField;
    rmapuxrgaplic: TBCDField;
    rmapuxipime: TBCDField;
    rmapuxipims: TBCDField;
    rmapuxipi1de: TBCDField;
    rmapuxipi1ds: TBCDField;
    rmapuxipi2de: TBCDField;
    rmapuxipi2ds: TBCDField;
    rmapuxipi3de: TBCDField;
    rmapuxipi3ds: TBCDField;
    rmapuxpagtopis: TStringField;
    rmapuxpagtocofins: TStringField;
    rmapuxpagtocs: TStringField;
    rmapuxpagtoirpj: TStringField;
    rmapuxpagtosimples: TStringField;
    rmapuxadirpj: TBCDField;
    rmapuxdevolcompras: TBCDField;
    rmapuxcomprocesso: TBCDField;
    rmapuxexigibilidade: TBCDField;
    rmapuxnempre: TBCDField;
    rmapuxgtreina: TBCDField;
    rmapuxgequipa: TBCDField;
    rmapuxgecf: TBCDField;
    rmapuxvricms: TBCDField;
    rmapuxvrfundese: TBCDField;
    rmapuxexc50abat: TBCDField;
    rmapuxc_icms_pi: TBCDField;
    rmapuxsc_icmspa: TBCDField;
    rmapuxicms_rste: TBCDField;
    rmapuxicms_rsts: TBCDField;
    rmapuxicms_ro: TBCDField;
    rmapuxicms_pimp: TBCDField;
    rmapuxicms_pst: TBCDField;
    rmapuxicms_po: TBCDField;
    rmapuxbc_autfis: TBCDField;
    rmapuxnfiliados: TBCDField;
    rmapuxsd_f_pa: TBCDField;
    rmapuxsc_f_pa: TBCDField;
    rmapuxvauc_ci: TBCDField;
    rmapuxdif_m_s_e: TBCDField;
    rmapuxestabatna: TBCDField;
    rmapuxestabatja: TBCDField;
    rmapuxvtidnfsia: TBCDField;
    rmapuxstrr: TBCDField;
    rmapuxdeb_ext: TBCDField;
    rmapuxvalor_fp: TBCDField;
    rmapuxee_c_kwh: TBCDField;
    rmapuxexcdevv: TBCDField;
    rmapuxexcdevc: TBCDField;
    rmapuxdif_rec: TBCDField;
    rmapuxdif_est: TBCDField;
    rmapuxst_e: TBCDField;
    rmapuxsd_e: TBCDField;
    rmapuxst_s: TBCDField;
    rmapuxsd_s: TBCDField;
    rmapuxbc_st_e: TBCDField;
    rmapuxbc_st_s: TBCDField;
    rmapuxdevolipie: TBCDField;
    rmapuxisentoe: TBCDField;
    rmapuxisentos: TBCDField;
    rmapuxoutrase: TBCDField;
    rmapuxoutrass: TBCDField;
    rmapuxdoc045: TBCDField;
    rmapuxdoc047: TBCDField;
    rmapuxdoc048: TBCDField;
    rmapuxdoc050: TBCDField;
    rmapuxdoc052: TBCDField;
    rmapuxdoc053: TBCDField;
    rmapuxdoc054: TBCDField;
    rmapuxdoc056: TBCDField;
    rmapuxred_ipi_darf: TBCDField;
    rmapuxdapi111: TBCDField;
    rmapuxdapi113: TBCDField;
    rmapuxestoqi: TBCDField;
    rmapuxfat_iss: TBCDField;
    rmapuxfat_iss3: TBCDField;
    rmapuxfat_iss4: TBCDField;
    rmapuxc_social_ret: TBCDField;
    rmapuxcofins_ret: TBCDField;
    rmapuxpis_ret: TBCDField;
    rmapuxiss_ret: TBCDField;
    rmapuxfat_acum: TBCDField;
    rmapuxvr_bruto_me: TBCDField;
    rmapuxp_simples_me: TBCDField;
    rmapuxvr_simples_me: TBCDField;
    rmapuxvr_bruto_epp: TBCDField;
    rmapuxp_simples_epp: TBCDField;
    rmapuxvr_simples_epp: TBCDField;
    rmapuxvr_bruto_lp: TBCDField;
    rmapuxp_simples_lp: TBCDField;
    rmapuxvr_simples_lp: TBCDField;
    rmapuxbc_fz: TBCDField;
    rmapuxvrpis_dctf: TBCDField;
    rmapuxvrcofins_dctf: TBCDField;
    rmapuxvrcs_dctf: TBCDField;
    rmapuxvrcs1c_dctf: TBCDField;
    rmapuxvrcs2c_dctf: TBCDField;
    rmapuxvrcs3c_dctf: TBCDField;
    rmapuxvrirpj_dctf: TBCDField;
    rmapuxvrirpj1c_dctf: TBCDField;
    rmapuxvrirpj2c_dctf: TBCDField;
    rmapuxvrirpj3c_dctf: TBCDField;
    rmapuxadirpj_dctf: TBCDField;
    rmapuxipim_dctf: TBCDField;
    rmapuxipi1d_dctf: TBCDField;
    rmapuxipi2d_dctf: TBCDField;
    rmapuxipi3d_dctf: TBCDField;
    rmapuxmultapis_dctf: TBCDField;
    rmapuxmultacofins_dctf: TBCDField;
    rmapuxmultacs_dctf: TBCDField;
    rmapuxmultacs1c_dctf: TBCDField;
    rmapuxmultacs2c_dctf: TBCDField;
    rmapuxmultacs3c_dctf: TBCDField;
    rmapuxmultairpj_dctf: TBCDField;
    rmapuxmultairpj1c_dctf: TBCDField;
    rmapuxmultairpj2c_dctf: TBCDField;
    rmapuxmultairpj3c_dctf: TBCDField;
    rmapuxmultaipim_dctf: TBCDField;
    rmapuxmultaipi1d_dctf: TBCDField;
    rmapuxmultaipi2d_dctf: TBCDField;
    rmapuxmultaipi3d_dctf: TBCDField;
    rmapuxjurospis_dctf: TBCDField;
    rmapuxjuroscofins_dctf: TBCDField;
    rmapuxjuroscs_dctf: TBCDField;
    rmapuxjuroscs1c_dctf: TBCDField;
    rmapuxjuroscs2c_dctf: TBCDField;
    rmapuxjuroscs3c_dctf: TBCDField;
    rmapuxjurosirpj_dctf: TBCDField;
    rmapuxjurosirpj1c_dctf: TBCDField;
    rmapuxjurosirpj2c_dctf: TBCDField;
    rmapuxjurosirpj3c_dctf: TBCDField;
    rmapuxjurosipim_dctf: TBCDField;
    rmapuxjurosipi1d_dctf: TBCDField;
    rmapuxjurosipi2d_dctf: TBCDField;
    rmapuxjurosipi3d_dctf: TBCDField;
    rmapuxpagtopis_dctf: TDateTimeField;
    rmapuxpagtocofins_dctf: TDateTimeField;
    rmapuxpagtocs_dctf: TDateTimeField;
    rmapuxpagtocs1c_dctf: TDateTimeField;
    rmapuxpagtocs2c_dctf: TDateTimeField;
    rmapuxpagtocs3c_dctf: TDateTimeField;
    rmapuxpagtoirpj_dctf: TDateTimeField;
    rmapuxpagtoirpj1c_dctf: TDateTimeField;
    rmapuxpagtoirpj2c_dctf: TDateTimeField;
    rmapuxpagtoirpj3c_dctf: TDateTimeField;
    rmapuxpagtoipim_dctf: TDateTimeField;
    rmapuxpagtoipi1d_dctf: TDateTimeField;
    rmapuxpagtoipi2d_dctf: TDateTimeField;
    rmapuxpagtoipi3d_dctf: TDateTimeField;
    rmapuxcodrecpis_dctf: TStringField;
    rmapuxcodreccofins_dctf: TStringField;
    rmapuxcodreccs_dctf: TStringField;
    rmapuxcodreccs1c_dctf: TStringField;
    rmapuxcodreccs2c_dctf: TStringField;
    rmapuxcodreccs3c_dctf: TStringField;
    rmapuxcodrecirpj_dctf: TStringField;
    rmapuxcodrecirpj1c_dctf: TStringField;
    rmapuxcodrecirpj2c_dctf: TStringField;
    rmapuxcodrecirpj3c_dctf: TStringField;
    rmapuxcodrecipim_dctf: TStringField;
    rmapuxcodrecipi1d_dctf: TStringField;
    rmapuxcodrecipi2d_dctf: TStringField;
    rmapuxcodrecipi3d_dctf: TStringField;
    rmapuxvarpis_dctf: TStringField;
    rmapuxvarcofins_dctf: TStringField;
    rmapuxvarcs_dctf: TStringField;
    rmapuxvarcs1c_dctf: TStringField;
    rmapuxvarcs2c_dctf: TStringField;
    rmapuxvarcs3c_dctf: TStringField;
    rmapuxvarirpj_dctf: TStringField;
    rmapuxvarirpj1c_dctf: TStringField;
    rmapuxvarirpj2c_dctf: TStringField;
    rmapuxvarirpj3c_dctf: TStringField;
    rmapuxvaripim_dctf: TStringField;
    rmapuxvaripi1d_dctf: TStringField;
    rmapuxvaripi2d_dctf: TStringField;
    rmapuxvaripi3d_dctf: TStringField;
    rmapuxfat_iss2: TBCDField;
    rmapuxvrsimples_nacional: TBCDField;
    rmapuxvricmsnormal: TBCDField;
    rmapuxvricmsst: TBCDField;
    rmapuxdesoneracao_lei: TBCDField;
    Relat: TADOQuery;
    RelatRelatorio: TMemoField;
    RelatRelatorio2: TMemoField;
    Relatnota: TWideStringField;
    RelatRelatorio3: TMemoField;
    Relatcfop: TWideStringField;
    RelatDescricao: TMemoField;
    Relatdiferenca: TWideStringField;
    Relatdata: TDateTimeField;
    Relatregistro: TStringField;
    lancamento: TADOQuery;
    lancamentosequencia: TAutoIncField;
    lancamentodata: TDateTimeField;
    lancamentondoc: TStringField;
    lancamentoclp: TStringField;
    lancamentoccdebito: TStringField;
    lancamentocccredito: TStringField;
    lancamentovalor: TBCDField;
    lancamentohist: TStringField;
    lancamentocomphist: TMemoField;
    lancamentopartida: TStringField;
    lancamentocusto: TStringField;
    lancamentocustocr: TStringField;
    lancamentoxid_nota: TIntegerField;
    lancamentoxtipo_nota: TStringField;
  private

    { Private declarations }
  public
    { Public declarations }
  end;

var
  base: Tbase;

implementation

uses SERVER, ApagarQuick, Apagar;

{$R *.dfm}

//Provider=SQLOLEDB.1;Password=Led#Wa4e$;Persist Security Info=True;User ID=sa;Data Source=SERVIDORI7\LEDWARE;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=ANDERSON;Use Encryption for Data=False;Tag with column collation when possible=False
//Provider=SQLOLEDB.1;Password=And4r$on;Persist Security Info=True;User ID=sa;Data Source=SERVIDORI7\SISTEMA;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=ANDERSON;Use Encryption for Data=False;Tag with column collation when possible=False;

end.
